home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00047_Welcome Menu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  967 b   |  21 lines
  1. on exitFrame
  2.   global baseMemory
  3.   new(script "Title Class")
  4.   set newMenu to CreateMenu([#statusMessage: "Click on a button"])
  5.   SetStatusMember(newMenu, [#statusMember: "welcome status"])
  6.   NewVideoDisplay(newMenu, [#cleanup: 0])
  7.   mmButton(newMenu, [#downMember: "ugpA_61"])
  8.   quitButton(newMenu, [#downMember: "ugpA_71"])
  9.   ShowVolumeControl()
  10.   set vidseqParams to [#memberNum: "welcome.mov"]
  11.   NewEvent(newMenu, NewObject(newMenu, "Video Sequence Class", vidseqParams))
  12.   BasicButton(newMenu, [#hotSprites: [36], #destination: "sponsor4"])
  13.   BasicButton(newMenu, [#hotSprites: [10], #destination: "platforms"])
  14.   BasicButton(newMenu, [#hotSprites: [11], #destination: "coverstory"])
  15.   BasicButton(newMenu, [#hotSprites: [12], #destination: "platforms"])
  16.   BasicButton(newMenu, [#hotSprites: [13], #destination: "sponsor3"])
  17.   BasicButton(newMenu, [#hotSprites: [14], #destination: "credits"])
  18.   cursor(-1)
  19.   put "Memory used:" && baseMemory - the freeBytes
  20. end
  21.